home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH12_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  555 b   |  31 lines
  1.                            (* Chapter 12 - Programming exercise 1 *)
  2. program Three_friends;
  3.  
  4. type First_Name = string[10];
  5.  
  6. var Friend1 : ^First_Name;
  7.     Friend2 : ^First_Name;
  8.     Sister  : ^First_Name;
  9.  
  10. begin
  11.    New(Friend1);
  12.    New(Friend2);
  13.    New(Sister);
  14.  
  15.    Friend1^ := 'Dan';
  16.    Friend2^ := 'Teresa';
  17.    Sister^  := 'Sandy';
  18.  
  19.    Write('My friends are, ',Friend1^,' and ',Friend2^);
  20.    Writeln(', and my sister is ',Sister^);
  21. end.
  22.  
  23.  
  24.  
  25.  
  26. { Result of execution
  27.  
  28. My friends are, Dan and Teresa, and my sister is Sandy
  29.  
  30. }
  31.